model:
sets:
 nodes/a,a1,a2,a3,b1,b2,c1,c2,c/;
 arcs(nodes,nodes)
/a,a1 a,a2 a,a3 a1,b1 a2,b1 a2,b2 a3,b2 b1,b2 b1,c1 b1,c2 b2,c1 b2,c2 c1,c c2,c /:c,b,f;
endsets
data:
c=4 15 8 4 8 7 8 5 10 3 4 15 14 18;
b=0 0 0 6 5 7 10 4 7 3 5 6 0 0;
enddata
flow=22;
min=@sum(arcs:b*f);
@for(nodes(i)|i#ne#1#and#i#ne#@size(nodes):
@sum(arcs(i,j):f(i,j))-@sum(arcs(j,i):f(j,i))=0);
@sum(arcs(i,j)|i#eq#1:f(i,j))=flow;
@for(arcs:@bnd(0,f,c));
end






model:
sets:
 nodes/a,a1,a2,a3,b1,b2,c1,c2,c/;
 arcs(nodes,nodes)
/a,a1 a,a2 a,a3 a1,b1 a2,b1 a2,b2 a3,b2 b1,b2 b1,c1 b1,c2 b2,c1 b2,c2 c1,c c2,c /:c,b,f;
endsets
data:
!d=27 0 0 0 0 0 0 0 -27;
c=4 15 8 4 8 7 8 5 10 3 4 15 14 18;
b=0 0 0 6 5 7 10 4 7 3 5 6 0 0;
enddata
max=flow;
!min=@sum(arcs:b*f);
@for(nodes(i)|i#ne#1#and#i#ne#@size(nodes):
@sum(arcs(i,j):f(i,j))-@sum(arcs(j,i):f(j,i))=0);
@sum(arcs(i,j)|i#eq#1:f(i,j))=flow;
@for(arcs:@bnd(0,f,c));
END



model:
sets:
 nodes/a,a1,a2,a3,b1,b2,c1,c2,c/:d;
 arcs(nodes,nodes)
/a,a1 a,a2 a,a3 a1,b1 a2,b1 a2,b2 a3,b2 b1,b2 b1,c1 b1,c2 b2,c1 b2,c2 c1,c c2,c /:c,b,f;
endsets
data:
d=27 0 0 0 0 0 0 0 -27;
c=4 15 8 4 8 7 8 5 10 3 4 15 14 18;
b=0 0 0 6 5 7 10 4 7 3 5 6 0 0;
enddata
min=@sum(arcs:b*f);
@for(nodes(i)|i#ne#1#and#i#ne#@size(nodes):
@sum(arcs(i,j):f(i,j))-@sum(arcs(j,i):f(j,i))=d(i));
@sum(arcs(i,j)|i#eq#1:f(i,j))=d(1);
@for(arcs:@bnd(0,f,c));
End

